&@  RESERVED3MQids.dbfRESERVED5MY$table2.dbf idiFUNCTION NewID(tcAlias) LOCAL lcAlias, ; lnID, ; lcOldReprocess, ; lnOldArea lnOldArea = SELECT() IF PARAMETERS() < 1 lcAlias = UPPER(ALIAS()) ELSE lcAlias = UPPER(tcAlias) ENDIF lcOldReprocess = SET('REPROCESS') *-- Lock until user presses Esc SET REPROCESS TO AUTOMATIC IF !USED("IDS") USE newid!ids IN 0 ENDIF SELECT ids IF SEEK(lcAlias, "Ids", "table") IF RLOCK() lnID = ids.nextid REPLACE ids.nextid WITH ids.nextid + 1 UNLOCK ENDIF ENDIF SELECT (lnOldArea) SET REPROCESS TO lcOldReprocess RETURN lnID ENDFUNC UNC J 11%U. TCW%C DTCCf[TCfTC REPROCESSvGM(%CIDS Q newid!idsF%CIdstable  %CST>Z F GM( BUTCALIASLCALIASLNIDLCOLDREPROCESS LNOLDAREANEWIDIDSNEXTIDNewID,1q4As2QAqqAAA1)1 newid() WINDOWS $table1.dbf id newid()